home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / Timing / UpTime17.lha / UpTime / scripts / CheckBootDate < prev    next >
Encoding:
Text File  |  1994-01-10  |  1.7 KB  |  74 lines
  1. ;
  2. ;   $VER: CheckBootDate 1.1 (09.01.94)
  3. ;
  4. ;   Written 20. September 1993 by J.Matern
  5. ;   This file is part of the 'UpTime'-package © by Jürgen Matern.
  6. ;   The package may be redistributed under limitations discribed
  7. ;   in the file 'UpTime.doc' which should have come with this
  8. ;   distribution. Read this file for more information!
  9. ;
  10. ;   Last changed: 9. January 1994
  11. ;
  12. set newyear 0
  13. set LastBoot `date`
  14. if exists ENV:UpTime/LastBoot
  15.    set LastBoot `getenv UpTime/LastBoot`
  16. endif
  17. set NowBoot `date`
  18. set LogBoot $NowBoot
  19. set LastTime 0
  20. if exists ENV:UpTime/UpTime
  21.    set LastTime `getenv UpTime/UpTime`
  22. endif
  23. set UpFileName S:UpTime.++
  24. if exists ENV:UpTime/UpFileName
  25.    set UpFileName `getenv UpTime/UpFileName`
  26. endif
  27.  
  28. set LastBoot `S:CutArg $LastBoot`
  29. set NowBoot `S:CutArg $NowBoot`
  30.  
  31. S:OnOff
  32. if "$LastBoot" not eq "$NowBoot"
  33.    set LastTime 0
  34.    if exists ENV:UpTime/UpTime
  35.       set LastTime `getenv UpTime/UpTime`
  36.    endif
  37.  
  38.    set hours `eval $LastTime / 60`
  39.    set minutes `eval $LastTime - ($hours * 60)`
  40.    set LastTime `echo SystemUpTime: $hours h $minutes min.`
  41.  
  42.    echo >> $UpFileName $LastBoot $LastTime
  43.  
  44.    if $newyear eq "1"
  45.       S:NewFileNames
  46.       type >> $OnOffFileName T:OnOff.temp
  47.       delete T:OnOff.temp quiet
  48.    endif
  49.  
  50.    setenv UpTime/UpTime 0
  51.    copy ENV:UpTime/UpTime ENVARC:UpTime/UpTime
  52.    run > nil: < nil: updatedb ; Remove this line, if you don't use 'FIND'.
  53. endif
  54.  
  55. set LogFileName S:LogFile.++
  56. if exists ENV:UpTime/LogFileName
  57.    set LogFileName `getenv UpTime/LogFileName`
  58. endif
  59.  
  60. echo >> $LogFileName $LogBoot
  61. echo > ENVARC:UpTime/LastBoot $LogBoot
  62. echo > ENV:UpTime/LastBoot $LogBoot
  63.  
  64. unset LastBoot
  65. unset NowBoot
  66. unset LogBoot
  67. unset LastTime
  68. unset UpFileName
  69. unset hours
  70. unset minutes
  71. unset newyear
  72. unset LogFileName
  73. unset OnOffFileName
  74.